home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / e_to_l / imlib201 / bimage.dfm / bimage.txt
Encoding:
Text File  |  1996-09-15  |  10.1 KB  |  465 lines
  1. object Form1: TForm1
  2.   Left = 15
  3.   Top = 12
  4.   Width = 611
  5.   Height = 454
  6.   ActiveControl = DirectoryListBox1
  7.   Caption = 'Imagelib user'#39's example'
  8.   Font.Color = clBlack
  9.   Font.Height = -12
  10.   Font.Name = 'Times New Roman'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnClose = FormClose
  16.   OnCreate = FormCreate
  17.   TextHeight = 15
  18.   object MultiImage1: TMultiImage
  19.     Left = 352
  20.     Top = 56
  21.     Width = 201
  22.     Height = 129
  23.     Cursor = crCross
  24.     DragCursor = crSizeNS
  25.     JPegDither = 4
  26.     JPegResolution = 8
  27.     JPegSaveQuality = 25
  28.     JPegSaveSmooth = 5
  29.     ImageName = 'file not found'
  30.     OnClick = MultiImage1Click
  31.   end
  32.   object QualityLabel: TLabel
  33.     Left = 511
  34.     Top = 206
  35.     Width = 57
  36.     Height = 14
  37.     Caption = 'Quality save'
  38.     Font.Color = clNavy
  39.     Font.Height = -11
  40.     Font.Name = 'Times New Roman'
  41.     Font.Style = []
  42.     ParentFont = False
  43.   end
  44.   object SmoothLabel: TLabel
  45.     Left = 512
  46.     Top = 272
  47.     Width = 59
  48.     Height = 14
  49.     Caption = 'Smooth save'
  50.     Font.Color = clNavy
  51.     Font.Height = -11
  52.     Font.Name = 'Times New Roman'
  53.     Font.Style = []
  54.     ParentFont = False
  55.   end
  56.   object Label1: TLabel
  57.     Left = 8
  58.     Top = 11
  59.     Width = 82
  60.     Height = 15
  61.     Caption = 'Source Directory'
  62.   end
  63.   object Label2: TLabel
  64.     Left = 160
  65.     Top = 12
  66.     Width = 106
  67.     Height = 15
  68.     Caption = 'Destination Directory'
  69.   end
  70.   object Label3: TLabel
  71.     Left = 384
  72.     Top = 16
  73.     Width = 145
  74.     Height = 25
  75.     Alignment = taCenter
  76.     AutoSize = False
  77.     Color = 12639424
  78.     Font.Color = clBlack
  79.     Font.Height = -19
  80.     Font.Name = 'Times New Roman'
  81.     Font.Style = [fsBold]
  82.     ParentColor = False
  83.     ParentFont = False
  84.   end
  85.   object DriveComboBox1: TDriveComboBox
  86.     Left = 8
  87.     Top = 381
  88.     Width = 145
  89.     Height = 21
  90.     Color = clTeal
  91.     Font.Color = clYellow
  92.     Font.Height = -12
  93.     Font.Name = 'Times New Roman'
  94.     Font.Style = []
  95.     ParentFont = False
  96.     TabOrder = 0
  97.     OnChange = DriveComboBox1Change
  98.   end
  99.   object DirectoryListBox1: TDirectoryListBox
  100.     Left = 8
  101.     Top = 268
  102.     Width = 144
  103.     Height = 110
  104.     Color = 12639424
  105.     ItemHeight = 16
  106.     TabOrder = 1
  107.     OnChange = DirectoryListBox1Change
  108.   end
  109.   object FileListBox1: TFileListBox
  110.     Left = 8
  111.     Top = 56
  112.     Width = 145
  113.     Height = 209
  114.     Color = 12639424
  115.     ItemHeight = 16
  116.     Mask = '*.gif;*.jpg;*.pcx;*.bmp'
  117.     MultiSelect = True
  118.     ShowGlyphs = True
  119.     TabOrder = 2
  120.     OnChange = FileListBox1Change
  121.     OnDblClick = FileListBox1Change
  122.   end
  123.   object Convert: TBitBtn
  124.     Left = 515
  125.     Top = 351
  126.     Width = 81
  127.     Height = 50
  128.     Caption = '&Convert'
  129.     Font.Color = clNavy
  130.     Font.Height = -11
  131.     Font.Name = 'Times New Roman'
  132.     Font.Style = []
  133.     ParentFont = False
  134.     TabOrder = 3
  135.     OnClick = ConvertClick
  136.     Glyph.Data = {
  137.       78010000424D7801000000000000760000002800000020000000100000000100
  138.       04000000000000000000120B0000120B00000000000000000000000000000000
  139.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  140.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
  141.       033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
  142.       03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
  143.       30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
  144.       07807F777733337F7F3707888887880808807F333333337F7F37077777778800
  145.       08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
  146.       33003777737777333377333080333333333333F7373333333333300803333333
  147.       33333773733333333333088033333333333373F7F33333333333308033333333
  148.       33333737333333333333330333333333333333733333333333330000}
  149.     Layout = blGlyphTop
  150.     NumGlyphs = 2
  151.     Style = bsNew
  152.   end
  153.   object QualitySpin: TSpinEdit
  154.     Left = 512
  155.     Top = 223
  156.     Width = 49
  157.     Height = 24
  158.     Hint = '0 to 100 for jpeg saving quality'
  159.     AutoSize = False
  160.     Font.Color = clNavy
  161.     Font.Height = -11
  162.     Font.Name = 'Times New Roman'
  163.     Font.Style = []
  164.     MaxValue = 100
  165.     MinValue = 0
  166.     ParentFont = False
  167.     ParentShowHint = False
  168.     ShowHint = True
  169.     TabOrder = 4
  170.     Value = 25
  171.     OnChange = QualitySpinChange
  172.   end
  173.   object Smoothspin: TSpinEdit
  174.     Left = 512
  175.     Top = 246
  176.     Width = 49
  177.     Height = 24
  178.     Hint = '0 to 100 for jpeg smoothing quality'
  179.     AutoSize = False
  180.     Font.Color = clNavy
  181.     Font.Height = -11
  182.     Font.Name = 'Times New Roman'
  183.     Font.Style = []
  184.     MaxValue = 100
  185.     MinValue = 0
  186.     ParentFont = False
  187.     ParentShowHint = False
  188.     ShowHint = True
  189.     TabOrder = 5
  190.     Value = 0
  191.     OnChange = SmoothspinChange
  192.   end
  193.   object GroupBox1: TGroupBox
  194.     Left = 191
  195.     Top = 319
  196.     Width = 126
  197.     Height = 81
  198.     Hint = 'Options for viewing only'
  199.     Caption = 'JPeg display resolution'
  200.     Font.Color = clNavy
  201.     Font.Height = -11
  202.     Font.Name = 'Times New Roman'
  203.     Font.Style = []
  204.     ParentFont = False
  205.     ParentShowHint = False
  206.     ShowHint = True
  207.     TabOrder = 6
  208.     object res4: TRadioButton
  209.       Left = 8
  210.       Top = 17
  211.       Width = 105
  212.       Height = 17
  213.       Hint = 
  214.         'Ideal with one pass dither to display images on a 16 color syste' +
  215.         'm'
  216.       Caption = '4 bit (16 colors)'
  217.       ParentShowHint = False
  218.       ShowHint = True
  219.       TabOrder = 0
  220.       OnClick = resClick
  221.     end
  222.     object res24: TRadioButton
  223.       Left = 8
  224.       Top = 61
  225.       Width = 105
  226.       Height = 17
  227.       Caption = '24 bit (true color)'
  228.       TabOrder = 1
  229.       OnClick = resClick
  230.     end
  231.     object res8: TRadioButton
  232.       Left = 8
  233.       Top = 38
  234.       Width = 105
  235.       Height = 17
  236.       Caption = '8 bit (256 colors)'
  237.       Checked = True
  238.       TabOrder = 2
  239.       TabStop = True
  240.       OnClick = resClick
  241.     end
  242.   end
  243.   object GroupBox2: TGroupBox
  244.     Left = 338
  245.     Top = 319
  246.     Width = 144
  247.     Height = 81
  248.     Hint = 'Options for viewing only'
  249.     Caption = 'JPeg display dither'
  250.     Font.Color = clNavy
  251.     Font.Height = -11
  252.     Font.Name = 'Times New Roman'
  253.     Font.Style = []
  254.     ParentFont = False
  255.     ParentShowHint = False
  256.     ShowHint = True
  257.     TabOrder = 7
  258.     object Label5: TLabel
  259.       Left = 4
  260.       Top = 16
  261.       Width = 41
  262.       Height = 14
  263.       Caption = 'One pass'
  264.     end
  265.     object Label6: TLabel
  266.       Left = 56
  267.       Top = 16
  268.       Width = 43
  269.       Height = 14
  270.       Caption = 'Two pass'
  271.     end
  272.     object Label7: TLabel
  273.       Left = 115
  274.       Top = 16
  275.       Width = 25
  276.       Height = 14
  277.       Caption = 'None'
  278.     end
  279.     object DitherOneNo: TRadioButton
  280.       Left = 8
  281.       Top = 38
  282.       Width = 40
  283.       Height = 17
  284.       Hint = 'One pass no dithering'
  285.       Caption = 'No'
  286.       ParentShowHint = False
  287.       ShowHint = True
  288.       TabOrder = 0
  289.       OnClick = DitherClick
  290.     end
  291.     object DitherOneYes: TRadioButton
  292.       Left = 8
  293.       Top = 60
  294.       Width = 41
  295.       Height = 17
  296.       Hint = 'One pass with dithering'
  297.       Caption = 'Yes'
  298.       ParentShowHint = False
  299.       ShowHint = True
  300.       TabOrder = 1
  301.       OnClick = DitherClick
  302.     end
  303.     object DitherTwoNo: TRadioButton
  304.       Left = 59
  305.       Top = 39
  306.       Width = 40
  307.       Height = 17
  308.       Hint = 'Two pass no dithering'
  309.       Caption = 'No'
  310.       ParentShowHint = False
  311.       ShowHint = True
  312.       TabOrder = 2
  313.       OnClick = DitherClick
  314.     end
  315.     object DitherTwoYes: TRadioButton
  316.       Left = 59
  317.       Top = 60
  318.       Width = 40
  319.       Height = 17
  320.       Hint = 'Two pass FS dithering'
  321.       Caption = 'Yes'
  322.       Checked = True
  323.       ParentShowHint = False
  324.       ShowHint = True
  325.       TabOrder = 3
  326.       TabStop = True
  327.       OnClick = DitherClick
  328.     end
  329.     object Dither24Bit: TRadioButton
  330.       Left = 109
  331.       Top = 39
  332.       Width = 33
  333.       Height = 17
  334.       Hint = 'No dithering (24 bit)'
  335.       Caption = '24'
  336.       ParentShowHint = False
  337.       ShowHint = True
  338.       TabOrder = 4
  339.       OnClick = DitherClick
  340.     end
  341.   end
  342.   object ComboBox1: TComboBox
  343.     Left = 8
  344.     Top = 32
  345.     Width = 145
  346.     Height = 22
  347.     Color = clTeal
  348.     DropDownCount = 15
  349.     Font.Color = clYellow
  350.     Font.Height = -11
  351.     Font.Name = 'Times New Roman'
  352.     Font.Style = []
  353.     ItemHeight = 14
  354.     Items.Strings = (
  355.       '*.JPG'
  356.       '*.GIF'
  357.       '*.PCX'
  358.       '*.BMP'
  359.       '*.GIF;*.PCX'
  360.       '*.GIF;*.BMP'
  361.       '*.GIF;*.JPG'
  362.       '*.PCX;*.BMP'
  363.       '*.PCX;*.GIF'
  364.       '*.PCX;*.JPG'
  365.       '*.GIF;*.PCX;*.BMP'
  366.       '*.JPG;*.GIF;*.PCX;'
  367.       '*.JPG;*.GIF;*.PCX;*.BMP'
  368.       '*.*')
  369.     ParentFont = False
  370.     TabOrder = 8
  371.     Text = 'Select file type'
  372.     OnChange = ComboBox1Change
  373.   end
  374.   object Sstretch: TCheckBox
  375.     Left = 515
  376.     Top = 322
  377.     Width = 86
  378.     Height = 17
  379.     Caption = 'Stretch Image'
  380.     Font.Color = clMaroon
  381.     Font.Height = -11
  382.     Font.Name = 'Times New Roman'
  383.     Font.Style = []
  384.     ParentFont = False
  385.     TabOrder = 9
  386.     OnClick = SstretchOnOff
  387.   end
  388.   object GroupBox3: TGroupBox
  389.     Left = 357
  390.     Top = 207
  391.     Width = 153
  392.     Height = 73
  393.     Caption = 'Convert to'
  394.     Font.Color = clPurple
  395.     Font.Height = -12
  396.     Font.Name = 'Times New Roman'
  397.     Font.Style = []
  398.     ParentFont = False
  399.     TabOrder = 10
  400.     object CTOJPEG: TRadioButton
  401.       Left = 16
  402.       Top = 20
  403.       Width = 89
  404.       Height = 17
  405.       Caption = 'Jpeg Images'
  406.       Checked = True
  407.       TabOrder = 0
  408.       TabStop = True
  409.     end
  410.     object CTOBMP: TRadioButton
  411.       Left = 16
  412.       Top = 48
  413.       Width = 89
  414.       Height = 17
  415.       Caption = 'BMP Images'
  416.       TabOrder = 1
  417.     end
  418.   end
  419.   object FileListBox2: TFileListBox
  420.     Left = 160
  421.     Top = 32
  422.     Width = 137
  423.     Height = 125
  424.     Color = clYellow
  425.     ItemHeight = 15
  426.     TabOrder = 11
  427.     OnChange = FileListBox2Change
  428.     OnDblClick = FileListBox2Change
  429.   end
  430.   object DirectoryListBox2: TDirectoryListBox
  431.     Left = 160
  432.     Top = 160
  433.     Width = 137
  434.     Height = 121
  435.     Color = clYellow
  436.     ItemHeight = 16
  437.     TabOrder = 12
  438.     OnChange = DirectoryListBox2Change
  439.   end
  440.   object DriveComboBox2: TDriveComboBox
  441.     Left = 160
  442.     Top = 283
  443.     Width = 137
  444.     Height = 21
  445.     Color = clYellow
  446.     TabOrder = 13
  447.     OnChange = DriveComboBox2Change
  448.   end
  449.   object MainMenu1: TMainMenu
  450.     Left = 576
  451.     Top = 65535
  452.     object N1: TMenuItem
  453.       Caption = '&File'
  454.       object E1: TMenuItem
  455.         Caption = 'E&xit'
  456.         OnClick = E1Click
  457.       end
  458.     end
  459.     object A1: TMenuItem
  460.       Caption = '&About'
  461.       OnClick = A1Click
  462.     end
  463.   end
  464. end
  465.